home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / RICK-L.ZIP / MAIN-DIR.ZIP / SURVEY.Q-A < prev    next >
Text File  |  1991-12-22  |  3KB  |  131 lines
  1. Clearscreen
  2. Changecolor 14 0
  3. Display "New User Survey|"
  4. Changecolor 3 0
  5. Display "~~~~~~~~~~~~~~~||"
  6. Display "|Every effort will be made to keep this information confidential, but|"
  7. Display "this is not guaranteed.  Completing this survey is optional but is|"
  8. Display "required to gain registered access to this system. Phone numbers may NOT|"
  9. Display "be withheld, must be accurate, and must be kept up to date.|"
  10. Display "You will be asked at the end of the survey whether or not you want to|"
  11. Display "record your answers.  To become a permanent member of the BBS, some of these|"
  12. Display "questions may be asked again, so be sure to tell the truth!|"
  13.  
  14. Changecolor 14 0
  15. Display "|What type of computer do you use?|"
  16. Changecolor 3 0
  17. Display "1. IBM PC/XT or CLONE|"
  18. Display "2. IBM AT    or CLONE|"
  19. Display "3. i386/i486 SYSTEM|"
  20. Display "4. PS/2|"
  21. Display "5. Other MS-DOS based system|"
  22. Display "6. Non MS-DOS system|? "
  23. GetChoice 123456 1
  24.  
  25. Changecolor 14 0
  26. Display "|What is your street Address ?|"
  27. Changecolor 3 0
  28. Ask 45 2 10
  29.  
  30. Changecolor 14 0
  31. Display "|What is your City, State and Zip Code ?|"
  32. Changecolor 3 0
  33. Ask 35 10 10
  34.  
  35. Changecolor 14 0
  36. Display "|What is your age (please be honest)? "
  37. Changecolor 3 0
  38. Ask 2 3 2
  39.  
  40. Changecolor 14 0
  41. Display "|What is your sex (M/F)? "
  42. Changecolor 3 0
  43. GetChoice MFmf 4
  44.  
  45. Changecolor 14 0
  46. Display "|Do you do any programming (Y/N)? "
  47. Changecolor 3 0
  48. GetChoice YN 20
  49.  
  50. If 20 = "Y"
  51. Changecolor 14 0
  52. Display "|What language(s) do you program in?|: "
  53. Changecolor 3 0
  54. Ask 65 5 10
  55. Endif
  56.  
  57. Changecolor 14 0
  58. Display "|Do you run a BBS (Y/N)? "
  59. Changecolor 3 0
  60. GetChoice YN 19
  61.  
  62. If 19 = "Y"
  63. Changecolor 14 0
  64. Display "|What is the name and phone number of your BBS?|: "
  65. Changecolor 3 0
  66. Ask 65 6 20
  67. Changecolor 14 0
  68. Display "|Please be sure to add your BBS to our listing at the Lobby menu!|"
  69. Display "|Is it OK if we share your BBS phone number with our users? (Y/N) "
  70. Changecolor 3 0
  71. GetChoice YN 18
  72. Endif
  73.  
  74. Changecolor 14 0
  75. Display "|What are your other interests, hobbies, favorite activities,|"
  76. Display "etc...  Non-computer stuff...  (2 lines)|"
  77. Changecolor 3 0
  78. Display "1: "
  79. Ask 65 7 20
  80. Changecolor 3 0
  81. Display "2: "
  82. Ask 65 8
  83.  
  84. Changecolor 14 0
  85. Display "|What do you look for on most BBS's?|: "
  86. Changecolor 3 0
  87. Ask 65 9 10
  88.  
  89. Changecolor 14 0
  90. Display "|How long have you been calling BBS's?|: "
  91. Changecolor 3 0
  92. Ask 65 12 5
  93.  
  94. Changecolor 14 0
  95. Display "|What is the name of your terminal/telecom program?|: "
  96. Changecolor 3 0
  97. Ask 20 11 5
  98.  
  99. Changecolor 14 0
  100. Display "|End of survey!  Do you want the system to R)ecord or D)iscard|"
  101. Display "your answers (R/D)? "
  102. Changecolor 3 0
  103. GetChoice RD 20
  104.  
  105. If 20 = "R"
  106. PostInfo
  107. OutputAnswer "Computer  : " 1
  108. OutputAnswer "Address   : " 2
  109. OutputAnswer "City/St   : " 10
  110. OutputAnswer "Age       : " 3
  111. OutputAnswer "Sex       : " 4
  112. OutputAnswer "Programing: " 5
  113. OutputAnswer "BBS       : " 6
  114. OutputAnswer "Ok to list: " 18
  115. OutputAnswer "Interests : " 7
  116. OutputAnswer "          : " 8
  117. OutputAnswer "Looks for : " 9
  118. OutputAnswer "How long  : " 12
  119. OutputAnswer "Terminal  : " 11
  120. Changecolor 15 0
  121. Display "|Answers saved!|"
  122. Changecolor 7 0
  123. Endif
  124.  
  125. If 20 = "D"
  126. Changecolor 15 0
  127. Display "|Answers discarded. Access level NOT raised!|"
  128. Changecolor 7 0
  129. Endif
  130.  
  131.